home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / DEM / S-Z / Special Delivery™ Demo.cpt / Special Delivery™ Demo / Claris / Claris Translators / EPSF.rsrc / PS_104 < prev    next >
Text File  |  1991-06-19  |  870b  |  25 lines
  1. %%BeginProcSet : RR1 
  2. /RR1 { 
  3. pbox top get pbox bottom get sub abs 2 div dup dup dup 
  4. pbox left get add pbox left 3 -1 roll put 
  5. pbox right get exch sub pbox right 3 -1 roll put 
  6. pbox left get pbox bottom get moveto 
  7. pbox right get 0 3 -1 roll 90 -90 arcn 
  8. pbox left get 0 3 -1 roll -90 90 arcn closepath
  9. } bind def 
  10. %%EndProcSet 
  11. %%BeginProcSet : RR2 
  12. /RR2 { 
  13. dup dup dup dup dup dup dup dup 
  14. pbox top get add pbox top 3 -1 roll put 
  15. pbox left get add pbox left 3 -1 roll put 
  16. pbox bottom get exch sub pbox bottom 3 -1 roll put 
  17. pbox right get exch sub pbox right 3 -1 roll put 
  18. pbox bottom get add pbox left get exch moveto 
  19. pbox right get pbox bottom get 3 -1 roll 90 0 arcn 
  20. pbox right get pbox top get 3 -1 roll  0 270 arcn 
  21. pbox left get pbox top get 3 -1 roll  270 180 arcn 
  22. pbox left get pbox bottom get 3 -1 roll 180 90 arcn closepath
  23. } bind def 
  24. %%EndProcSet